home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / self.tf < prev    next >
Text File  |  1995-08-12  |  314b  |  7 lines
  1. ;;; Macro that prints its own body (without using ${self} or $(/list self)).
  2. ;;; "/eval /def self = $(/self)" will make /self redefine itself.
  3. ;;; Not useful, just interesting.
  4.  
  5. /def self=/let q="%;/let p=%% %;/let f=strcat("/let q=",q,p,";/let p=",p,p," ",p,";/let f=",f,p,";/test echo(",p,"f)")%;/test echo(%f)
  6.  
  7.